Pascal Super Library/Pascal Super Library (CW International)(1997).bin/MATH/NRPAS13/BICO.PAS

Pascal/Delphi Source File | 1991-04-29 | 106b | 5 lines

FUNCTION bico(n,k: integer): real;
BEGIN
   bico := round(exp(factln(n)-factln(k)-factln(n-k)));
END;